/*  sdmdstcr.cpp  by K.Tsuru  */
// function ID = 35
/*********************************************************
SDouble classes
It provides the destructor.
**********************************************************/
#ifndef SN_H
#include "sn.h"
#endif
// function ID = 35
// destructor
SDouble::~SDouble(){
// changed by constructor
    if(PushedCD() & REDUCE_MAX_SIZE_DISABLE){
        PushCD( PushedCD() & ~REDUCE_MAX_SIZE_DISABLE);
        reduceMaxSize = ENABLE;
        if( PushedCD() & SD_PUSH ){ // Check CutDown(POP) by PointFree() ?
            PushCD(PushedCD() & ~SD_PUSH);
            CutDown(POP);
        }
    }
//in SDecimal class, rdxExp != 0. Maybe this statement is not necessary.
    if((Type() == BIN_DEC) && rdxExp) SetError(RADIX_ERR, "~SDouble", 35);
// fixedPointMode was changed by TempPointFree();
    if(PushedCD() & TEMP_FREE) PointModePop();
// changed by FixedPoint()
    if(PushedCD() & (CH_FE | SD_PUSH)) PointFree();
}